home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Microsoft Internet Strate…Tools for the Enterprise
/
Microsoft Internet Strategy & Tools for the Enterprise.iso
/
content
/
devel.tls
/
icp
/
simple.exe
/
SIMPLE.FRM
next >
Wrap
Text File
|
1996-03-10
|
11KB
|
324 lines
VERSION 4.00
Begin VB.Form Form1
Caption = "Enhanced HTML Browser"
ClientHeight = 7050
ClientLeft = 1185
ClientTop = 1515
ClientWidth = 6720
Height = 7455
Icon = "simple.frx":0000
Left = 1125
LinkTopic = "Form1"
ScaleHeight = 7050
ScaleWidth = 6720
Top = 1170
Width = 6840
Begin VB.ComboBox Combo1
BeginProperty Font
name = "Arial"
charset = 0
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 345
ItemData = "simple.frx":030A
Left = 555
List = "simple.frx":030C
TabIndex = 2
Top = 465
Width = 6180
End
Begin HTMLObjects.HTML HTML1
Height = 5940
Left = 0
TabIndex = 4
Top = 825
Width = 6705
_ExtentX = 11827
_ExtentY = 10478
DeferRetrieval = 0 'False
ElemNotification= 0 'False
UseDocColors = -1 'True
UnderlineLinks = -1 'True
Redraw = -1 'True
ViewSource = 0 'False
RetainSource = -1 'True
Timeout = 30
BackImage = ""
BackColor = 12632256
ForeColor = 0
LinkColor = 16711680
VisitedColor = 16711935
BeginProperty RegularFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BeginProperty FixedFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Times New Roman"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BeginProperty Heading1Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 15.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BeginProperty Heading2Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 14.25
underline = 0 'False
italic = -1 'True
strikethrough = 0 'False
EndProperty
BeginProperty Heading3Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BeginProperty Heading4Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = -1 'True
strikethrough = 0 'False
EndProperty
BeginProperty Heading5Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BeginProperty Heading6Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
End
Begin MSComDlg.CommonDialog dlgFileOpen
Left = 6210
Top = 6285
_Version = 65536
_ExtentX = 847
_ExtentY = 847
_StockProps = 0
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 3
Top = 6780
Width = 6720
_Version = 65536
_ExtentX = 11853
_ExtentY = 476
_StockProps = 68
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
AlignSet = -1 'True
SimpleText = ""
i1 = "simple.frx":030E
End
Begin ComctlLib.ImageList ImageList1
Left = 6300
Top = 0
_Version = 65536
_ExtentX = 1005
_ExtentY = 1005
_StockProps = 1
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
NumImages = 8
i1 = "simple.frx":041A
i2 = "simple.frx":07D9
i3 = "simple.frx":0B98
i4 = "simple.frx":0D97
i5 = "simple.frx":0F96
i6 = "simple.frx":1195
i7 = "simple.frx":1394
i8 = "simple.frx":1593
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "URL:"
BeginProperty Font
name = "Arial"
charset = 0
weight = 700
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 300
Left = 15
TabIndex = 1
Top = 495
Width = 510
End
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 390
Left = 0
TabIndex = 0
Top = 0
Width = 6720
_Version = 65536
_ExtentX = 11853
_ExtentY = 688
_StockProps = 96
ImageList = "ImageList1"
ButtonWidth = 609
NumButtons = 12
i1 = "simple.frx":1952
i2 = "simple.frx":1B01
i3 = "simple.frx":1CB8
i4 = "simple.frx":1E57
i5 = "simple.frx":2022
i6 = "simple.frx":21E5
i7 = "simple.frx":2390
i8 = "simple.frx":253F
i9 = "simple.frx":26F2
i10 = "simple.frx":2891
i11 = "simple.frx":2A35
i12 = "simple.frx":2BD5
AlignSet = -1 'True
End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Public pnlX As Panel
Private Sub Command1_Click()
HTML1.RequestDocument (Combo1.Text)
End Sub
Private Sub Combo1_Click()
HTML1.RequestDoc (Combo1.Text)
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim strURL As String
strURL = Combo1.Text
Select Case KeyAscii
Case 13
HTML1.RequestDoc strURL
End Select
End Sub
Private Sub Form_Load()
Set pnlX = StatusBar1.Panels(1)
End Sub
Private Sub Form_Resize()
Combo1.Width = Me.ScaleWidth - 540 ' Factor URL label
HTML1.Width = Me.ScaleWidth + 10
HTML1.Height = Me.ScaleHeight - 1100 ' Factor toolbar height
End Sub
Private Sub HTML1_BeginRetrieval()
pnlX.Text = "Requesting document..."
End Sub
Private Sub HTML1_EndRetrieval()
pnlX.Text = "Document received..."
Combo1.Text = HTML1.URL
Combo1.AddItem HTML1.URL
End Sub
Private Sub HTML1_LayoutComplete()
pnlX.Text = "Layout Complete..."
End Sub
Private Sub HTML1_ParseComplete()
pnlX.Text = "Parsing Complete..."
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
Select Case Button.Index
Case 1
Dim strURL As String
dlgFileOpen.Filter = "HTML Files (*.htm)|*.htm|All(*.*)|*.*"
dlgFileOpen.FilterIndex = 0
dlgFileOpen.ShowOpen
strURL = "file:///" & dlgFileOpen.filename
Dim lTok As Long
lTok = InStr(strURL, "\")
While lTok <> 0
Mid$(strURL, lTok, 1) = "/"
lTok = InStr(strURL, "\")
Wend
HTML1.RequestDoc (strURL)
Case 2
Dim vNewForm As Object
Set vNewForm = New Form1
vNewForm.Left = Form1.Left + 550
vNewForm.Top = Form1.Top + 550
vNewForm.Show
'There was not enough time to implement a database
'solution for history and navigation. This will
'appear in a future Beta. Use the combo box for
'history.
'Case 4
' If Combo1.ListIndex > 0 Then
' Combo1.ListIndex = Combo1.ListIndex - 1
' Else
' MsgBox "Sorry. Can't go any further..."
' End If
'Case 5
' If (Combo1.ListIndex < Combo1.ListCount - 1) And Not (Combo1.ListIndex = -1) Then
' Combo1.ListIndex = Combo1.ListIndex + 1
' Else
' MsgBox "Sorry. Can't go any further..."
' End If
Case 7
HTML1.Cancel
Case 8
HTML1.RequestDoc (Combo1.Text)
Case 10
HTML1.RequestDoc ("http://www.microsoft.com")
Case 12
HTML1.RequestDoc ("http://guide.infoseek.com")
End Select
End Sub